﻿Namespace Tools.NDS
    Public Class clsTile
        Private _tileData(63) As Integer

        Public Sub New(ByVal TileData() As Integer)
            For i = 0 To 63
                _tileData(i) = TileData(i)
            Next
        End Sub

        Public ReadOnly Property Pixel(ByVal x As Integer, ByVal y As Integer) As Integer
            Get
                Return _tileData(x + y * 8)
            End Get
        End Property
    End Class
End Namespace